function [iout] = bluetres(iin)
b=iin(:,:,3);
iout=im2bw(b,0.5);